e <- exp(-1.7953)
d <- 15^2.2974
biomassa1 <- e*d
biomassa1
ln.biomassa2 <- -2.6464 + 1.9960*log(15) + 0.7558*log(12) 
ln.biomassa2
biomassa2 <- exp(4.636961)
biomassa2



letra.a <- rep("a",6)
letra.a
numeros <- rep(1:3,each=3)
numeros
decrescente <- rep(1:3,3:1)
decrescente
sequencia <- c(1:5,4:1)
sequencia
impares <- seq(1,99,by=2)
impares



luz <- c(9839,10149,10486,10746,11264,11684,12082,12599,13004,13350,13717,14052)
luz
luz.cons <- diff(luz)
luz.cons
luz.m <- mean(luz.cons)
luz.m
luz.md <- median(luz.cons)
luz.md
luz.v <- var(luz.cons)
luz.v
luz.range <- range(luz.cons)
luz.range



dap1 <- 13.5
arvore1 <- (pi*(dap1/2)^2)
arvore1
dap2 <- c(7,9,12)
arvore2 <- (pi*(dap2/2)^2)
sum(arvore2) 



pesos <- c(78.4, 79.8, 76.0, 75.3, 77.4, 78.6, 77.9, 78.8, 79.2, 75.2, 75.0, 79.4)
media <- mean(pesos)
media
N <- length(pesos)
pesos.d2 <- (pesos-media)^2 / (N-1)
pesos.d2
pesos.d2s <- sum(pesos.d2)
pesos.d2s
pesos.v <- sqrt(pesos.d2s)
pesos.v
pesos.ds <- sqrt(pesos.d2s)
pesos.ds
pesos.s <- (sqrt(pesos.ds)) / (N-1)
pesos.s
